home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / sfx_data.lha / sfx-data / Install-SFXdata next >
Text File  |  1996-03-15  |  8KB  |  301 lines
  1. ; Install-SFXdata Start -------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFXdata (02.12.1995)
  4. ;
  5. ; SoundFX data  Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of data for SoundFX !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were the data for SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
  19.     (SET #copy-fonts        "copying fonts ...")
  20.     (SET #copy-libs            "copying librarys ...")
  21.     (SET #copy-synths        "copying synths ...")
  22.     (SET #copy-eqshapes        "copying eq-shapes ...")
  23.     (SET #copy-envelopes    "copying envelopes ...")
  24.     (SET #copy-workshop        "copying workshopfiles ...")
  25.     (SET #copy-icons        "copying icons ...")
  26.     (SET #copy-help            "The respective files will copied to your HD.")
  27.     (SET #choose-icon        "Please choose the the icon you want to install\n The 4 colour version is made for standart wb-colors and the 8 colour version is made for magic-wb !")
  28.     (SET #choose-icon-help    "If your wb-screen has more than 4 colours than choose the 8 colour version.\n This one looks nicer.")
  29.     (SET #exit-messy        "\n\nSFXdata is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  30. ))
  31. (IF (= @LANGUAGE "deutsch")
  32. (
  33.     (SET #bad-kick            "SoundFX benötigt mindestens Kickstart 2.04 !")
  34.     (SET #welcome-messy        "\n\nWillkommen zur Installation der Daten für SoundFX !")
  35.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  36.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie die Daten für das Programm installeren möchten")
  37.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
  38.     (SET #copy-fonts        "kopiere Fonts ...")
  39.     (SET #copy-libs            "kopiere Librarys ...")
  40.     (SET #copy-synths        "kopiere Synths ...")
  41.     (SET #copy-eqshapes        "kopiere EQ-Shapes ...")
  42.     (SET #copy-envelopes    "kopiere Envelopes ...")
  43.     (SET #copy-workshop        "kopiere Workshopdateien ...")
  44.     (SET #copy-icons        "kopiere Icons ...")
  45.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  46.     (SET #choose-icon        "Bitte wählen Sie das Icon aus, das Sie installieren möchten !\n Die 4-farbige Variante ist für die Standart-WB und die 8-farbige für MagicWB !")
  47.     (SET #choose-icon-help    "Wenn Sie mehr als 4 Farben auf der WB haben, dann wählen Sie die 8-farbige Version.\n Diese sieht schöner aus.")
  48.     (SET #exit-messy        "\n\nSFXdata konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  49. ))
  50.  
  51. ; check kick version ----------------------------------------------------------------------------------------
  52.  
  53. (if (< (/ (getversion) 65536) 37)
  54.     (abort #bad-kick)
  55. )
  56.  
  57. ; los geht`s ------------------------------------------------------------------------------------------------
  58.  
  59. (COMPLETE 0)
  60. (MESSAGE #welcome-messy)
  61.  
  62. (SET @default-dest
  63.     (ASKDIR
  64.         (PROMPT #choose-dest)
  65.         (HELP #choose-dest-help)
  66.         (DEFAULT @default-dest)
  67.     )
  68. )
  69. (MESSAGE #dest-require)
  70.  
  71. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  72. (COMPLETE 5)
  73. (SET @default-dest (TACKON @default-dest "SFX"))
  74. (SET sfx-dest @default-dest)
  75. (IF (= (EXISTS sfx-dest) 0)
  76.     (MAKEDIR sfx-dest (INFOS))
  77. )
  78.  
  79. ; Fonts kopieren --------------------------------------------------------------------------------------------
  80. (COMPLETE 10)
  81. (COPYFILES
  82.     (PROMPT #copy-fonts)
  83.     (HELP #copy-help)
  84.     (SOURCE "Fonts/")
  85.     (DEST "FONTS:")
  86.     (ALL)
  87. )
  88.  
  89. ; Libs kopieren ---------------------------------------------------------------------------------------------
  90. (COMPLETE 15)
  91. (COPYLIB
  92.     (PROMPT #copy-libs)
  93.     (HELP #copy-help)
  94.     (SOURCE "Libs/amigaguide.library")
  95.     (DEST "LIBS:")
  96. )
  97.  
  98. ; Synths ----------------------------------------------------------------------------------------------------
  99. (COMPLETE 20)
  100. (SET sfxsub-dest (TACKON sfx-dest "Synths"))
  101. (IF (= (EXISTS sfxsub-dest) 0)
  102.     (MAKEDIR sfxsub-dest)
  103. )
  104. (COMPLETE 22)
  105. (COPYFILES
  106.     (PROMPT #copy-synths)
  107.     (HELP #copy-help)
  108.     (SOURCE "Synths/")
  109.     (DEST sfxsub-dest)
  110.     (ALL)
  111. )
  112.  
  113. ; Eqshapes --------------------------------------------------------------------------------------------------
  114. (COMPLETE 35)
  115. (SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
  116. (IF (= (EXISTS sfxsub-dest) 0)
  117.     (MAKEDIR sfxsub-dest)
  118. )
  119. (COMPLETE 37)
  120. (COPYFILES
  121.     (PROMPT #copy-eqshapes)
  122.     (HELP #copy-help)
  123.     (SOURCE "Eqshps/")
  124.     (DEST sfxsub-dest)
  125.     (ALL)
  126. )
  127.  
  128. ; Envelopes -------------------------------------------------------------------------------------------------
  129. (COMPLETE 50)
  130. (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
  131. (IF (= (EXISTS sfxsub-dest) 0)
  132.     (MAKEDIR sfxsub-dest)
  133. )
  134. (COMPLETE 52)
  135. (COPYFILES
  136.     (PROMPT #copy-envelopes)
  137.     (HELP #copy-help)
  138.     (SOURCE "Envelopes/")
  139.     (DEST sfxsub-dest)
  140.     (ALL)
  141. )
  142.  
  143. ; Workshop-Scripte ------------------------------------------------------------------------------------------
  144. (COMPLETE 70)
  145. (SET sfxsub-dest (TACKON sfx-dest "Workshop"))
  146. (IF (= (EXISTS sfxsub-dest) 0)
  147.     (MAKEDIR sfxsub-dest)
  148. )
  149. (COMPLETE 72)
  150. (COPYFILES
  151.     (PROMPT #copy-workshop)
  152.     (HELP #copy-help)
  153.     (SOURCE "Workshop/")
  154.     (DEST sfxsub-dest)
  155.     (ALL)
  156. )
  157.  
  158. ; Icon ------------------------------------------------------------------------------------------------------
  159. (COMPLETE 90)
  160. (SET icon
  161.     (ASKCHOICE
  162.         (PROMPT #choose-icon)
  163.         (HELP #choose-icon-help)
  164.         (CHOICES
  165.             "4 colours"
  166.             "8 colours"
  167.         )
  168.         (DEFAULT 0)
  169.     )
  170. )
  171. (COMPLETE 92)
  172. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  173. (IF (= icon 0)
  174. (
  175.     (COPYFILES
  176.         (PROMPT #copy-icons)
  177.         (HELP #copy-help)
  178.         (SOURCE "icons_4col/SoundFX.info")
  179.         (DEST sfx-dest)
  180.     )
  181.     (COPYFILES
  182.         (PROMPT #copy-icons)
  183.         (HELP #copy-help)
  184.         (SOURCE "icons_4col/Guides.info")
  185.         (DEST sfx-dest)
  186.     )
  187.     (COPYFILES
  188.         (PROMPT #copy-icons)
  189.         (HELP #copy-help)
  190.         (SOURCE "icons_4col/SFX.guide.info")
  191.         (DEST sfxsub-dest)
  192.     )
  193.     (IF (= @LANGUAGE "english")
  194.     (
  195.         (COPYFILES
  196.             (PROMPT #copy-icons)
  197.             (HELP #copy-help)
  198.             (SOURCE "icons_4col/Form.info")
  199.             (DEST sfx-dest)
  200.             (NEWNAME "Orderform.txt.info")
  201.         )
  202.     )
  203.     (
  204.         (COPYFILES
  205.             (PROMPT #copy-icons)
  206.             (HELP #copy-help)
  207.             (SOURCE "icons_8col/Form.info")
  208.             (DEST sfx-dest)
  209.             (NEWNAME "Orderform.txt.info")
  210.         )
  211.     ))
  212. ))
  213. (IF (= icon 1)
  214. (
  215.     (COPYFILES
  216.         (PROMPT #copy-icons)
  217.         (HELP #copy-help)
  218.         (SOURCE "icons_8col/SoundFX.info")
  219.         (DEST sfx-dest)
  220.     )
  221.     (COPYFILES
  222.         (PROMPT #copy-icons)
  223.         (HELP #copy-help)
  224.         (SOURCE "icons_8col/Guides.info")
  225.         (DEST sfx-dest)
  226.     )
  227.     (COPYFILES
  228.         (PROMPT #copy-icons)
  229.         (HELP #copy-help)
  230.         (SOURCE "icons_8col/SFX.guide.info")
  231.         (DEST sfxsub-dest)
  232.     )
  233.     (IF (= @LANGUAGE "english")
  234.     (
  235.         (COPYFILES
  236.             (PROMPT #copy-icons)
  237.             (HELP #copy-help)
  238.             (SOURCE "icons_4col/Form.info")
  239.             (DEST sfx-dest)
  240.             (NEWNAME "Bestellformular.txt.info")
  241.         )
  242.     )
  243.     (
  244.         (COPYFILES
  245.             (PROMPT #copy-icons)
  246.             (HELP #copy-help)
  247.             (SOURCE "icons_8col/Form.info")
  248.             (DEST sfx-dest)
  249.             (NEWNAME "Bestellformular.txt.info")
  250.         )
  251.     ))
  252. ))
  253.  
  254. (if (< (/ (getversion) 65536) 37)
  255. (
  256.     (TOOLTYPE
  257.         (DEST (TACKON sfx-dest "Guides/SFX.guide"))
  258.         (SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
  259.     )
  260.     (IF (= @LANGUAGE "english")
  261.     (
  262.         (TOOLTYPE
  263.             (DEST (TACKON sfx-dest "Orderform.txt"))
  264.             (SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
  265.         )
  266.     )
  267.     (
  268.         (TOOLTYPE
  269.             (DEST (TACKON sfx-dest "Bestellformular.txt"))
  270.             (SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
  271.         )
  272.     ))
  273. )
  274. (
  275.     (TOOLTYPE
  276.         (DEST (TACKON sfx-dest "Guides/SFX.guide"))
  277.         (SETDEFAULTTOOL "sys:Utillities/MultiView")
  278.     )
  279.     (IF (= @LANGUAGE "english")
  280.     (
  281.         (TOOLTYPE
  282.             (DEST (TACKON sfx-dest "Orderform.txt"))
  283.             (SETDEFAULTTOOL "sys:Utillities/MultiView")
  284.         )
  285.     )
  286.     (
  287.         (TOOLTYPE
  288.             (DEST (TACKON sfx-dest "Bestellformular.txt"))
  289.             (SETDEFAULTTOOL "sys:Utillities/MultiView")
  290.         )
  291.     ))
  292. ))
  293.  
  294. ; Fertig ----------------------------------------------------------------------------------------------------
  295. (COMPLETE 99)
  296. (MESSAGE #exit-messy)
  297. (COMPLETE 100)
  298.  
  299. (EXIT (QUIET))
  300. ; Install-SFXdata Ende --------------------------------------------------------------------------------------
  301.